home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / src / numerical / f2cl-package.lisp < prev    next >
Encoding:
Text File  |  2003-02-09  |  4.7 KB  |  143 lines
  1. ; f2cl0.l
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;;;;;;;;;;Copyright (c) University of Waikato;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;;;;;;;;;;Hamilton, New Zealand 1992-95 - all rights reserved;;;;;;;;;;;;;
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6.  
  7. ; edit here so that the root of the f2cl directory tree is appropriate
  8. ; for your installation and the filename extension is valid
  9. ;;#+(or sparc sun4)(defvar *f2cl_dir* "/d/sen/f2cl/wrk/")
  10. ;;#+vms (defvar *f2cl_dir* "d:[sen.f2cl.wrk]")
  11. ;;(defvar *ext* 
  12. ;;          #+clisp ".fas" #+allegro ".fasl" #+vms ".fas" #+lucid ".sbin")
  13. ;;
  14. ;;(defun load-f2cl (x) 
  15. ;;(load (concatenate 'string *f2cl_dir* x *ext*) :print nil :verbose t))
  16. ;;
  17. ;;(load-f2cl "f2cl1" )
  18. ;;(load-f2cl "f2cl2" )
  19. ;;(load-f2cl "f2cl3" )
  20. ;;(load-f2cl "f2cl4" )
  21. ;;(load-f2cl "f2cl5" )
  22. ;;(load-f2cl "f2cl6" )
  23. ;;(load-f2cl "f2cl7" )
  24. ;;(load-f2cl "macros" )
  25. ;;
  26. ;;(format t "~&The f2cl software has been loaded.~%")
  27.  
  28. #-gcl(in-package :common-lisp-user)
  29. #+gcl(in-package "USER")
  30.  
  31. (defpackage "F2CL-LIB"
  32.   #-gcl(:use "CL")
  33.   #+gcl(:use "LISP")
  34.   (:documentation "The package holding all symbols used by the Fortran to Lisp library")
  35.   (:nicknames "FORTRAN-TO-LISP-LIBRARY")
  36.   (:export
  37.    ;; Constants
  38.    "%FALSE%" "%TRUE%"
  39.    ;; User-settable runtime options
  40.    "*CHECK-ARRAY-BOUNDS*"
  41.    ;; Types
  42.    "INTEGER4" "INTEGER2" "INTEGER1" "REAL8" "REAL4" "COMPLEX8" "COMPLEX16"
  43.    "ARRAY-DOUBLE-FLOAT" "ARRAY-SINGLE-FLOAT" "ARRAY-INTEGER4" "ARRAY-STRINGS"
  44.    "LOGICAL"
  45.    ;; Macros
  46.    "FREF" "FSET" "WITH-ARRAY-DATA"
  47.    "F2CL-INIT-STRING" "FREF-STRING" "FSET-STRING" "F2CL-SET-STRING"
  48.    "F2CL-//" "FSTRING-/=" "FSTRING-=" "FSTRING->" "FSTRING->=" "FSTRING-<" "FSTRING-<="
  49.    "FORTRAN_COMMENT" "FDO" "F2CL/" "ARITHMETIC-IF" "COMPUTED-GOTO"
  50.    "ASSIGNED-GOTO"
  51.    "FFORMAT"
  52.    "DATA-IMPLIED-DO"
  53.    "INT-ADD" "INT-SUB" "INT-MUL"
  54.    ;; Utilities
  55.    "ARRAY-SLICE" "ARRAY-INITIALIZE"
  56.    ;; Intrinsic functions
  57.    "ABS" "ACOS" "AIMAG" "AINT" "ALOG" "ALOG10" "AMAX0" "AMAX1"
  58.    "AMIN1" "AMOD" "ANINT" "ASIN" "ATAN" "ATAN2"
  59.    "CABS" "CEXP" "FCHAR" "CLOG" "CMPLX" "CONJG" "CCOS"
  60.    "CSIN" "CSQRT" "DABS" "DACOS" "DASIN"
  61.    "DATAN" "DATAN2" "DBLE" "DCOS" "DCOSH" "DEXP" "DIM"
  62.    "DINT" "DLOG" "DLOG10" "DMAX1" "DMIN1" "DMOD"
  63.    "DNINT" "DPROD" "DSIGN" "DSIN" "DSINH" "DSQRT" "DTAN"
  64.    "DTANH" "FFLOAT" "IABS" "ICHAR" "IDIM" "IDINT"
  65.    "IDNINT" "IFIX" "INDEX" "INT" "ISIGN" "LE" "LEN"
  66.    "LGE" "LGT" "FLOG" "LOG10" "LT" "MAX" "MAX0"
  67.    "MAX1" "MIN0" "MIN1" "NINT" "FREAL"
  68.    "SIGN" "SNGL" "FSQRT"
  69.    ;; Other functions
  70.    "D1MACH" "R1MACH" "I1MACH"
  71.    ))
  72.  
  73. #+nil
  74. (defpackage "FORTRAN-TO-LISP"
  75.     (:use "CL")
  76.   (:documentation "The package holding all symbols need by the Fortran to Lisp converter")
  77.   (:nicknames "F2CL")
  78.   (:export
  79.    ;; Main routines
  80.    "F2CL"
  81.    "F2CL-COMPILE"
  82.    ))
  83.  
  84. ;;;-------------------------------------------------------------------------
  85. ;;; end of f2cl0.l
  86. ;;;
  87. ;;; $Id: f2cl-package.lisp,v 1.4 2002/07/18 02:37:22 rtoy Exp $
  88. ;;; $Log: f2cl-package.lisp,v $
  89. ;;; Revision 1.4  2002/07/18 02:37:22  rtoy
  90. ;;; Don't need to import destructuring-bind for GCL anymore.
  91. ;;;
  92. ;;; Revision 1.3  2002/05/19 20:22:32  rtoy
  93. ;;; GCL doesn't export DESTRUCTURING-BIND from the LISP package.  Import
  94. ;;; it.
  95. ;;;
  96. ;;; Revision 1.2  2002/05/01 18:20:18  amundson
  97. ;;; Package-related hacks for gcl.
  98. ;;;
  99. ;;; Revision 1.1  2002/04/26 13:04:46  rtoy
  100. ;;; Initial revision.
  101. ;;;
  102. ;;; Revision 1.13  2002/03/11 16:40:21  rtoy
  103. ;;; Export INT-ADD, INT-SUB, INT-MUL.
  104. ;;;
  105. ;;; Revision 1.12  2002/02/17 15:50:17  rtoy
  106. ;;; Export with-array-data.
  107. ;;;
  108. ;;; Revision 1.11  2002/02/10 03:41:53  rtoy
  109. ;;; Export ARRAY-STRINGS type.
  110. ;;;
  111. ;;; Revision 1.10  2002/01/13 16:24:24  rtoy
  112. ;;; All of the exported symbols in macros.l have been moved from the F2CL
  113. ;;; package to the F2CL-LIB package.
  114. ;;;
  115. ;;; Revision 1.9  2002/01/05 18:52:12  rtoy
  116. ;;; Add in-package.
  117. ;;;
  118. ;;; Revision 1.8  2001/04/26 17:49:50  rtoy
  119. ;;; Export new functions D1MACH and R1MACH
  120. ;;;
  121. ;;; Revision 1.7  2001/02/26 15:38:22  rtoy
  122. ;;; Move *check-array-bounds* from f2cl1.l to macros.l since the generated
  123. ;;; code refers to it.  Export this variable too.
  124. ;;;
  125. ;;; Revision 1.6  2000/09/01 13:51:20  rtoy
  126. ;;; AMAX1 and DIM were repeated.
  127. ;;;
  128. ;;; Revision 1.5  2000/08/05 19:06:34  rtoy
  129. ;;; Export F2CL-COMPILE.
  130. ;;;
  131. ;;; Revision 1.4  2000/07/28 22:07:44  rtoy
  132. ;;; It's FORTRAN, not FORTAN!
  133. ;;;
  134. ;;; Revision 1.3  2000/07/28 16:56:48  rtoy
  135. ;;; f2cl0.l isn't the (unused) f2cl loader anymore.  Use it to define the
  136. ;;; package used by f2cl.
  137. ;;;
  138. ;;; Revision 1.2  2000/07/13 16:55:34  rtoy
  139. ;;; To satisfy the Copyright statement, we have placed the RCS logs in
  140. ;;; each source file in f2cl.  (Hope this satisfies the copyright.)
  141. ;;;
  142. ;;;-------------------------------------------------------------------------
  143.